home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / batch / tsbat36.zip / BLK.BAT < prev    next >
DOS Batch File  |  1992-04-17  |  2KB  |  63 lines
  1. echo off
  2.  
  3. rem Here is the most trivial screen saver for whatever its worth.
  4. rem To exit, press any key.
  5.  
  6. rem If you want to hide the cursor, see the instructions in BLANK.BAT.
  7.  
  8. rem Not that it is any of my business, but why buy a computer in the
  9. rem first place if you don't intend to use it all the time. :-)
  10.  
  11. echo off
  12. echo ┌───────────────────────────────────────────────────┐
  13. echo │ Screen blanker with push and popup                │
  14. echo │ By Prof. Timo Salmi, ts@chyde.uwasa.fi, 17-Apr-92 │
  15. echo └───────────────────────────────────────────────────┘
  16.  
  17. rem Test whether you have the necessary auxiliary programs available
  18. rem pushscr.exe and popscr.exe needed here are part of the tsutld18.arc
  19. rem package (or whatever version number is the latest).
  20.  
  21. rem If you get an "Out of environment space" message, increase your
  22. rem environment space by using shell configuration in config.sys:
  23. rem Example: shell=c:\bin\command.com /e:1024 /p
  24.  
  25. rem Check that the program pushscr.exe is available
  26. set _found=
  27. if exist pushscr.exe set _found=yes
  28. for %%d in (%path%) do if exist %%d\pushscr.exe set _found=yes
  29. if "%_found%"=="yes" goto _label1
  30. echo.
  31. echo Auxiliary file pushscr.exe must be at path or in the current directory
  32. goto _out
  33.  
  34. rem Check that the program popscr.exe is available
  35. :_label1
  36. set _found=
  37. if exist popscr.exe set _found=yes
  38. for %%d in (%path%) do if exist %%d\popscr.exe set _found=yes
  39. if "%_found%"=="yes" goto _label2
  40. echo.
  41. echo Auxiliary file popscr.exe must be at path or in the current directory
  42. goto _out
  43.  
  44. rem Check that the drive for storing the screen is valid.
  45. rem If it is not then change r:\ to whatever is appropriate for you
  46. :_label2
  47. if exist r:\nul goto _label3
  48. echo.
  49. echo Device for storing the screen is missing. See the rem comments.
  50. goto _out
  51.  
  52. rem Let there be darkness
  53. :_label3
  54. pushscr r:\tmp$$$.scn /o
  55. cls
  56. pause > nul
  57. rem Let there be light
  58. popscr r:\tmp$$$.scn
  59. del r:\tmp$$$.scn > nul
  60. :_out
  61. set _found=
  62. echo on
  63.